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CHAPTER 1 
INTRODUCTION 



1.1 GENERAL INFORMATION 

The VERSAdos Resident Run-Time Library (RRTL) is a collection of routines that 
exists as an extension of the VERSAdos operating system. The routines provide 
an interface between programs written in Pascal and the VERSAdos operating 
system. The Pascal language runs under VERSAdos and is targeted for VERSAdos. 

1.2 CONVENTIONS 

The following conventions are used in the command syntax, examples, and text 
in this manual: 

boldface strings A boldface string is a literal, such as a command or 
program name, and is to be typed just as it appears. 

italic strings An italic string is a "syntactic variable" and is to 

be replaced by one of a class of items it represents. 

I A vertical bar separating two or more items 

indicates that a choice is to be made; only one of the 
items separated by this symbol should be selected. 

[ ] Square brackets enclose an item that is optional. The 

item may appear zero or one time. 

[ ] . . . Square brackets followed by an ellipsis (three dots) 
enclose an item that is optional/repetitive. The item 
may appear zero or more times. 

[ ] Boldface brackets are required characters. 

Operator inputs are to be followed by a carriage return. The carriage return 
is shown as (OR) only if it is the only input required. 

1.3 RELATED DOCUMENTATION 

The following publications may provide additional helpful information. If not 

shipped with this product, they may be obtained from Motorola's Literature 

Distribution Center, 616 West 24th Street, Tempe, AZ 85282; telephone (602) 
994-6561. 
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CHAPTER 2 
FUNCTIONAL DESCRIPTION 



2.1 SOFTWARE INTERFACES 

Software interfaces are needed to provide the VERSAdos RRTL with access to the 
RMS68K and VERSAdos directives. A language interface for Pascal is also 
required. 

2.1.1 RMS68K Interface 

RMS68K consists of an inner kernel (or nucleus) that supports the priority- 
driven, multitasking environment, and eight resource managers. Each resource 
manager consists of data structures and from five to seven RMS68K directives, 
with each directive providing a specific service from the resource manager. 
The eight resource managers are: 

a. Event Management Directives 

b. Memory Management Directives 

c. Task Management Directives 

d. Time Management Directives 

e. Semaphore Management Directives 

f. Trap Server Management Directives 

g. Exception Monitor Management Directives 
h. Exception Management Directives 

Entry to the RMS68K directives is through a TRAP #1 instruction. Directive 
calls require a numeric value (directive number) in data register DO. Most 
directive calls also require the address of a parameter block in address 
register AO. On return from the directive call, data register DO contains 
status information. The status register is also set to reflect the contents 
of DO. 

Chapter 5 contains a complete listing of the RMS68K directives that are 
supported by the VERSAdos Resident Run-Time Library. A full discussion of the 
RMS68K directives is provided in the N68000 Family Real-Time Multitasking 
Software User's Manual. The Channel Management Request (CMR) directive is 
documented in the Guide to Writing Device Drivers for VERSAdos. 
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2.1.2 VERSAdos Directives 

The VERSAdos directives are divided into three logical groups: 

a. Input/Output Services (lOS) 

b. File Handling Services (FHS) 

c. Loader Directives 

Each group of directives requires a specific interface. In addition, a 
software interface for the Error Message Handler (EMH) program is also 
required. 

2.1.2.1 Input/Output Services Interface . I/O operations within VERSAdos are 
essentially device-independent. Operations are based on logical properties, 
not device characteristics or file formats. Logical Unit Numbers (LUNs) are 
assigned to devices and files before I/O between programs and files/devices 
occurs. 

In VERSAdos, all devices and files are treated as files. I/O is handled by 
two modules, lOS and FHS. lOS handles all data transfers, referring to task 
or user identification and LUN. Chapter 6 provides descriptions of the lOS 
directives. 

Entry to the lOS directives is through a TRAP #2 instruction (refer to 
Appendix A for information about the generic TRAP routines). lOS directive 
calls require the address of a parameter block in address register AO. The 
lOS function code is specified in the first word of the parameter block. On 
return from the directive call, data register DO reflects the contents of DO. 
The Proceed- I/O call is an exception. The DO does not reflect the status of 
the function since the function has not yet completed. The parameter block 
status byte will reflect the status of the function after the function has 
completed. 

Refer to the VERSAdos Data Management Services and Program Loader User's 
Manual for further information. 



2.1.2.2 File Handling Services Interface . As part of I/O, FHS is called into 
service when creating disk files and their attributes, associating a LUN with 
each device or file. Chapter 7 provides descriptions of the FHS directives. 

Entry to the FHS directives is through a TRAP #3 instruction (refer to 
Appendix A for information about the generic TRAP routines). lOS directive 
calls require the address of a parameter block in address register AO. The 
FHS function code is specified in the first word of the parameter block. On 
return from the directive call, data register DO contains the status returned 
from the function. The parameter block status byte contains the function 
status. The status register is also set to reflect the contents of DO. Some 
directive calls also return data in address register AO or address registers 
AO and Al. 

Refer to the VERSAdos Data Management Services and Program Loader User's 
Manual for further information. 
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2.1.2.3 Loader Interface . The program loader's function is to: 

a. Create a new task 

b. Allocate memory segments for the task based on segment information 
found in the Loader Information Block (LIB) of a load file created by 
the linkage editor 

c. Read the contents of each segment from the load file into the 
segments allocated 

The task created by the loader is in a dormant state following a successful 
completion of that load function. 

Entry to the Loader directives is through a TRAP #4 instruction (refer to 
Chapter 7 for a description of the directives). The loader call requires the 
address of a parameter block in address register AO. The directive number for 
the loader (1) is contained in data register DO. On return from the directive 
call, data register DO contains the status returned from the loader. 

The loader command is thoroughly described in the VERSAdos Data Management 
Services and Program Loader User's Manual. 

2.1.2.4 Error Message Handler Interface . The EMH program is a system server 
task that provides standard error message displays in response to exception 
conditions, relieving the user task of maintaining its own error message list. 
The program retrieves the key value of the message to be displayed from the 
ERRORMSG.SY file, expanding any embedded sentinels. 

Entry to the EMH is through a TRAP #4 instruction. The EMH call requires the 
address of a parameter block in address register AO. The directive number for 
EMH (2) is contained in data register DO. On return from the directive call, 
data register DO contains the status returned from EMH. 

Refer to the M68000 VERSAdos System Facilities Reference Manual for a complete 
description of the EMH program. 

2.1.3 Pascal Interface 

The Pascal run-time library consists of routines written in assembly language 
that can be declared and called from the Pascal programs as FUNCTIONS. In 
every case, the function value returned is the TRAP status information, the 
contents of DO. 

The format of a library routine call from a Pascal program is identical to a 
regular function or procedure call. Parameters are placed on the top of the 
stack beneath the return address, in the order in which they are declared. 
The size of the parameters depends on the parameter type. The return value 
for a function is below the first parameter on the stack. 

Figure 2-1 illustrates the stack as it would appear on entry to a library 
routine called as a function with three parameters: 
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Top of stack (A7)- 
(On Entrance) 



Top of stack (A7)- 
(On Exit) 



I Return address | 
I (four bytes) | 
+ - + 

I 3rd parameter | 
I Size depending on type j 
+- + 

I 2nd parameter | 
I Size depending on type | 
+ + 

I 1st parameter | 
I Size depending on type | 

I Function Value | 
I Size depending on type | 
+ + 



Register contents on entrance to a library routine are as follows: 

A3 = base address of the libraries 

A5 = pointer to base of local variable area 

A5 = pointer to base of global variable area 

A7 = stack pointer 



FIGURE 2-1. Stack on Entry to a Library Routine 



The library routines are required by the compiler to preserve the value of 
registers A3, A5, and A6. They are also responsible for removing from the 
stack all parameters passed to it from the calling program. 

Refer to the M68000 Family Resident Pascal User's Manual for a complete 
description of the stack entries created by the various types of parameters. 
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CHAPTER 3 
ACCESS TO SYSTEM DIRECTIVES 



3.1 GENERAL INFORMATION 

The RRTL routines provide an interface between programs written in Pascal and 
the VERSAdos operating system. This chapter describes the means to access the 
RMS68K and VERSAdos directives. 

Pascal RRTL routines are called from the applications program as functions. 
Like any Pascal function, two items must be defined for each RRTL directive 
used: the function's declaration and the function's calling sequence. 

3.2 PASCAL DECLARATIONS 

Each VERSAdos directive used in the Pascal program requires a declaration 
statement. The general description of a Pascal declaration for a RRTL 
function is as follows: 

FUNCTION name ( parameterji st ) : INTEGER; FORWARD; 

where: 

name = the name of the directive 

parameterji st = the list of parameters required by that directive. 

3.3 PASCAL RRTL CALLING SEQUENCE 

A function call for the RRTL functions can be used anywhere a Pascal function 
can be used. The RRTL functions return the directive status as an integer 
value. For the directives that do not return status, the returned value of 
the function is 0. 

The general form of the RRTL calling sequence is as follows: 

name{pl,p2,...,pn); 

Descriptions of the Pascal declarations and calling sequences for the RRTL 
functions are provided in Chapters 5, 6, and 7. 

3.4 CONSTRUCTING A PASCAL TASK INCLUDING THE RRTL 

The chain file that follows contains the steps necessary to compile and link a 
task that includes the RRTLs in a shareable segment with a major portion of 
the Pascal library. 

Notice that although the routines RTLINIT, RFINIT, RTRAPS, and PLJSR are 
Pascal library routines, the routines are not shareable. Therefore, in the 
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chain file, the routines have been separated from the remainder of the Pascal 
library to permit the library to be shared by other tasks. 

=/* COMPILE MASTER PROGRAM 
=Pascal \1,\2,\2.LX;Z=100 
=Pascal2 \2,\2,\2.LS;LZ=100 
=/* LINK TOGETHER 
=LINK ,\2,\2;MSX 

SEG SEG1{R):0,9 $0000 

SEG SEG2:15 

SEG RRTL(GR):8 

IN 9998.RRTL.RTLINIT<INIT> 

IN \2 

IN 9998.RRTL.RRTLACCS 

IN 9998.RRTL.PRTL 

IN 9998.RRTL.PLJSR 

IN 9998.RRTL.RFINIT 

IN 9998.RRTL.RTRAPS 

IN 9998.RRTL.RPSCALIB 

ATTR P 

END 
=END 

where: 

\1 = the name of the Pascal source file 

\2 = the name of the resultant linked file 

RTLINIT = a replacement for the Pascal INIT routine for use with the 

RRTLs 
RTTLACCS = the RRTL access routines 
PRTL = the RRTL routines 

PLJSR = Pascal library routine that cannot be shared 
RFINIT = Pascal library routine that cannot be shared 
RTRAPS = Pascal library routine that cannot be shared 
RPSCALIB = Pascal library that is shareable 
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CHAPTER 4 
RRTL SOURCE FILES 



4.1 GENERAL INFORMATION 

It is helpful to understand the construction of the RRTL's source files before 
attempting to create a VERSAdos run-time library. The RRTL consists of two 
major modules: one module which contains the library routines, (PRTL); and 
one module which contains the library access routines, (RTLACCS). 

The library access routines are necessary to overcome the compiler 
restrictions and maintain a globally shareable run-time library. Any library 
routines that are added to or deleted from the RRTL require changes to both 
modules. Appendix B describes the structure of both modules. 

The VERSAdos RRTL's design enables users to construct three types of 
libraries: a full standard library; a subset of the standard library; or a 
customized library in which new routines have been added or unnecessary 
routines deleted. A full standard library is one that contains all VERSAdos 
interface routines (grouped by directives: RMS68K, lOS, and FHS/LOADER) . A 
subset would be a library that contains some combination of these groups. A 
customized library might contain only those directives a user required, plus 
library routines that the user created. 

4.2 BUILDING A STANDARD RUN-TINE LIBRARY 

To build a standard run-time library, the user specifies first, the language 
that the library supports, and second, the subsets of directives that are 
desired for the library. A full standard library contains all subsets of 
directives. 



4.2.1 Specifying the Language 

To specify Pascal as the language supported by the library, enter the 
following command while assembling the RRTL: 

ASM 9998. RRTL. RRTLPASC/9998. RRTL. RRTLSRC. PRTL, PRTL ;RMDZ= 110 

The file RRTLPASC contains the equate statements that designate Pascal as the 
support language. 
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4.2.2 Specifying a Standard Subset 

The file RRTLIDS.EQ contains the library scope equates, one equate for each 
directive subset. To include a particular directive subset in the library, 
the equate is set to 1. To omit a particular subset from the library, the 
equate is set to 0: 

= Omit the group of directives 

1 = Include the group of directives 

For example, a full standard library that includes all directive subsets would 
be represented in the RRTLIDS.EQ file as follows: 



D 



S$RMS 


EQU 


1 


RMS68K directives 


S$IOS 


EQU 


1 


lOS directives 


S$FHS 


EQU 


1 


FHS directives 


S$GEN 


EQU 


1 


Generic TRAP routines 



4.3 BUILDING A CUSTOHIZED RUN-TINE LIBRARY 

Users can customize the run-time library either by creating their own library 
routines or by deleting all routines that are not required. 

4.3.1 Deleting Directive Routines from the RRTL 

To customize a library so that it contains only those routines that are 
required, do the following: 

STEP 1. Modify the file RRTLIDS.EQ to indicate the directive subsets 
that are to be omitted completely from the library. For 
example, if no FHS directives are required, set the equate S$FHS 
to 0. All references to the FHS directives are excluded from 
the library modules. 

STEP 2. Exclude individual routines from the library by deleting 
references to the routine from the following modules: 

Library Routine Source File {one of the following): 

9998. RRTL. SRCIOS.SA for lOS routines 

9998. RRTL. SRCFHS.SA for FHS routines 

9998. RRTL. SRCRMS.SA for RMS68K routines 

9998. RRTL. SRCGEN.AI for generic trap routines 

Access Routine Source File (one of the following): 

9998. RRTL. ACSIOS.AI for lOS routines 

9998. RRTL. ACSFHS.AI for FHS routines 

9998. RRTL. ACSRMS.AI for RMS68K routines 

9998. RRTL. ACSGEN.AI for generic trap routines 
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Vector Table: 

9998.RRTL.RRTLSRC.SA 
Access Routine External Definition File: 

9998.RRTL.ACSXDEF.AI 
Access Code Definition File: 

9998.RRTL.ACSC0DES.AI 

STEP 3. After the source files are edited, create the library by 
executing both of the following chain files: 

9998.RRTL.PRTL.CF {RRTL routines) 
9998. RRTL. ACS. CF (Access routines) 

4.3.2 Adding Directive Routines to the Run-Time Library 

To create library routines and include them with the standard RRTL routines, 
do the following: 

STEP 1. Create the library routine. 

Carefully study the information in Chapter 2 that describes the 
Pascal calling conventions. Pay particular attention to the 
registers that must be preserved for the languages and the 
parameter passing mechanisms. 

STEP 2. Update the RRTL source file. 

Source code for newly created library routine can be 
incorporated as an include file, merged into one of the existing 
include files, or merged into RRTLSRC.SA. 

STEP 3. Add an entry for the routine to the external reference file, 
ACSXDEF.AI. 

STEP 4. Add an entry for the routine to the vector table located in 
RRTLSRC.SA. 

STEP 5. Add an entry for the routine to the access code module, 
ACSCODES.AI. This entry and the entry in the vector table must 
correspond. 

STEP 6. After the source files are modified, create the library by 
executing the following chain files: 

9998. RRTL. PRTL.CF (RRTL routines) 
9998. RRTL. ACS. CF (Access routines) 
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CHAPTER 5 
RMS68K DIRECTIVES 



The RMS68K directive descriptions have been organized into eight sub-groups, 
following the format used in the H68000 Family Real-Time Multitasking Software 
User's Manual. Within these groups, the directives are arranged in 
alphabetical order. The single driver directive (LCMR) is described at the 
end of the chapter. The sub-groups are defined as follows: 



EVENT MANAGEMENT DIRECTIVES: 

LDEASQ LGTASQ LGTEVNT 
LRDEVNT LRTEVNT LSETASQ 

MEMORY MANAGEMENT DIRECTIVES: 



LATTSEG 
LTRSEG 



LDCLSHR 
LRCVSA 



LDESEG 
LMOVELL 



TASK MANAGEMENT DIRECTIVES: 



LABORT LCRTCB LGTSKID 

LRELINQ LRESUME LSETPRI 

LSTOP LSUSPEND LTERM 

LWAIT LWAKEUP LTSKATTR 

TIME MANAGEMENT DIRECTIVES: 

LDELAY LDLAYW LRQSTPA 
LGTDTIM LSTDTIM 

SEMAPHORE MANAGEMENT DIRECTIVES: 



LATSEM 
LDESMA 



LCRSEM 
LSGSEM 



LDESEM 
LWTSEM 



LQEVNT 
LWTEVNT 



LGTSEG 
LMOVEPL 



LGTTSKNAM 
LSTART 
LTERMT 
LTSKINFO 



LSHRSEG 
LFLUSHC 




TRAP SERVER MANAGEMENT DIRECTIVES: 

LAKRQST LDERQST LDSERVE 
EXCEPTION MONITOR MANAGEMENT DIRECTIVES: 



LSERVER 



LDEXMON 
LPSTATE 



LEXMMSK 
LREXMON 



LEXMON 
LRSTATE 



EXCEPTION MANAGEMENT DIRECTIVES: 



LCISR 
LCTVCT 



LSINT 
LCDIR 



LCXVCT 
LSNAPTRAC 
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LDEASQ - Deallocate Asynchronous Service Queue (ASQ) 

Directive number = 32 

The LDEASQ library routine provides access to the RMS68K 
directive DEASQ. The Deallocate-ASQ function frees the memory 
dedicated to the requestor's ASQ. 

Call Line: RVL = LDEASQO 

Where: RVL = Returned Value (Always zero) 

Declaration: 

function Ideasq 

: integer; forward; 



LGTASQ - Allocate ASQ 

Directive number = 31 

The LGTASQ library routine provides access to the RMS68K 
directive GTASQ. The Allocate-ASQ function allocates memory 
for the target task's ASQ. 



Call Line: 


RVL = LGTASQ(TSK,SES,ASQS,MXL,QLN,V 


Where: 


RVL = Returned Value (Status Code) 




TSK = Task Id 




SES = Session number 




ASQS = ASQ Status 




MXL = Maximum Message Length 




QLN = Que Length 




VEC = ASR Service Vector 




BFR = Receiving Buffer 




PEA = Parameter Block Address 


Declaration: 


function 


lgtasq(tsk : integer; 




ses : integer; 




asqs : byte; 




mxl : byte; 




qln : integer; 




vec : integer; 




bfr : integer) 



integer; forward; 
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Get event from its ASQ 

Directive number = 38 

The LGTEVNT library routine provides access to the RMS68K 
directive GTEVNT. The Get-Event function moves the oldest 
event sent to the task to the receive buffer. If no event 
exists in the task's ASQ, the task goes into a wait-for-event 
state. 



Call Line: 
Where: 

Declaration: 



RVL = LGTEVNT{RCV) 



RVL = Returned Value (Status Code) 
RCV = Address of receiving area 



function lgtevnt(rcv : integer) 

: integer; forward; 

Queue event to task's ASQ 

Directive number = 35 

The LQEVNT library routine provides access to the RMS68K 
directive QEVNT. The Queue-Event function places the specified 
event in the ASQ of the target task, or moves the event 
directly into the target task's default buffer. 

Call Line: RVL = LQEVNT(TSK,SES,OPT,EAD,ALV,PBA) 

Where: RVL = Returned Value (Status Code) 

TSK = Task Id 

SES = Session number 

OPT = Options 

EAD = Event Address 

ALV = Alternate Service Vector 

PBA = Parameter Block Address 




Declaration: 
function 



lqevnt(tsk 
ses 
opt 
ead 
alv 
pba 



integer; 

integer; 

word; 

integer; 

integer; 

integer) 



(Directive options) 
(Event address) 
(Alternate service vector) 



integer; forward; 
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LRDEVNT 




LRTEVNT 



LSETASQ 



Task reads event from its ASQ 

Directive number = 34 

The LRDEVNT library routine provides access to the RMS68K 
directive RDEVNT. The Read-Event moves the oldest event sent 
to the task to the receive buffer. If no event exists, the 
first two bytes of the receive buffer are set to zero. 

Call Line: RVL = LRDEVNT{RCV) 

Where: RVL = Returned Value (Status Code) 
RCV = Address of receiving area 

Declaration: 

function lrdevnt{rcv : integer) 

: integer; forward; 

ASR returns after event servicing 

Directive number = 37 

The LRTEVNT library routine provides access to the RMS68K 
directive RTEVNT. The Return-from-Event function restores the 
environment and returns control to the point where the event 
interrupt occurred. 

Call Line: RVL = LRTEVNT(ASRO) 

Where: RVL = Returned Value (Always zero) 
ASRO = ASR options 

Declaration: 

function lrtevnt(asrs : integer) 

: integer; forward; 

Task changes its ASQS/ASR status 

Directive number = 33 

The LSETASQ library routine provides access to the RMS68K 
directive SETASQ. The Set-ASQ function replaces the requesting 
task's current ASQ, ASR and default-receive-buffer status with 
the requested status. 
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Call Line: RVL = LSETASQ(ASRO) 

Where: RVL = Returned Value (Status Code) 
ASRO = ASR options 

Declaration: 

function lsetasq(asqs : integer) 

: integer; forward; 

LWTEVNT - Task moves itself to Wait-for-Event state 

Directive number = 36 

The LWTEVNT library routine provides access to the RMS68K 
directive WTEVNT. The Wait-for-Event function ensures that the 
ASQ and ASR of the requesting task are enabled and places the 
task in the Wait-for-Event state. 

Call Line: RVL = LWTEVNT () 

Where: RVL = Returned Value (Status Code) 

Declaration: 

function Iwtevnt 

: integer; forward; 

5.2 MEMORY MANAGEMENT DIRECTIVES 

LATTSEG - Attach a shareable segment 

Directive number = 4 

The LATTSEG library routine provides access to the RMS68K 
directive ATTSEG. The Attach-a-Shareable-Segment function 
allows the requesting task control over the logical beginning 
address of the segment. 

Call Line: RVL = LATTSEG(OPT,ATR,SGN,SGA,SGL,ADR,PBA) 

Where: RVL = Returned Value (Status Code) 

OPT = Options 

ATR = Segment Attribute 

SGN = Segment name 

SGA = Physical or logical addr of new segment 

SGL = Segment Length 

ADR = Physical address returned from trap 

PBA = Parameter Block Address 
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Declaration: 




function lattseg(opt 


word ; 


atr 


word ; 


sgn 


array[1..4] of char; 


sga 


integer; 


sgl 


integer; 


var adr 


integer; 


pba 


integer) 




: integer; forward; 

LDCLSHR - Declare a segment shareable 

Directive number = 7 

The LDCLSHR library routine provides access to the RMS68K 
directive DCLSHR. The Declare-a-Segment-Shareable function 
makes a non-shareable segment (contained within the address 
space of the requesting task) into a shareable segment so that 
more than one task may attach to it. 

Call Line: RVL = LDCLSHR(OPT,ATR,SGN,PBA) 



Where: 


RVL 
OPT 
ATR 
SGN 
PBA 


= Return Value 

= Options 

= Segment Attribute 

= Segment name 

= Parameter Block Addre 


ss 


Declaratior 


i: 








function 


Idcls 


hr{opt : word; 
atr : word; 
sgn : array [1.. 4] 
pba : integer) 
: integer; forward; 


of 


char; 



LDESEG - Deallocate a segment 

Directive number = 2 

The LDESEG library routine provides access to the RMS68K 
directive DESEG. The Deallocate-a-Segment function deletes the 
specified segment from the target task's address space. 



Call Line: 


RVL 


= LDESEG(TSK,SES,OPT,SGN,PBA) 


Where: 


RVL 


= Returned Value (Status Code) 




TSK 


= Task Id 




SES 


= Session number 




OPT 


= Options 




SGN 


= Segment name 




PBA 


= Parameter Block Address 
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Declaration: 




function ldeseg(tsk 


integer; 


ses 


integer; 


opt 


word; 


sgn 


array[1..4] of char; 


pba 


integer) 



integer; forward; 



LGTSEG - Allocate a segment 

Directive number = 1 

The LGTSEG library routine provides access to the RMS68K 
directive GTSEG. The Allocate-a-Segment function enables a 
task to obtain a named segment of memory for itself or another 
task. 

Call Line: RVL = LGTSEG(TSK,SES,OPT,ATR,SGN,SGA,SGL,ADR,SZ,PBA) 

Where: RVL = Returned Value (Status Code) 

TSK = Task Id 

SES = Session number 

OPT = Options 

ATR = Segment Attribute 

SGN = Segment name 

SGA = Physical or logical addr of new segment 

SGL = Segment Length 

ADR = Physical address returned from trap 

SZ = Size of largest free block available 

PBA = Parameter Block Address 



B 



Declaration: 



function lgtseg{tsk 
ses 
opt 
atr 
sgn 
sga 
sgl 
var adr 
var sz 
pba 



integer; 

integer; 

word; 

word; 

array[l. .4] of char; 

seg_addr; 

integer; 

integer; 

integer; 

integer) 



integer; forward; 
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LSHRSEG - Grant shared segment access 
Directive number = 5 



The LSHRSEG library routine provides access to the RMS68K 
directive SHRSEG. This directive places an existing shareable 
segment within another task's address space. 

Call Line: RVL = LSHRSEG(TSK,SES,OPT,ATR,SGN,SGA,SGL,ADR,PBA) 



Q 



Where: RVL 


= Returned Value (Status Code) 


TSK 


= Task Id 


SES 


= Session number 


OPT 


= Options 


ATR 


= Segment Attribute 


SGN 


= Segment name 


SGA 


= Physical or logical addr of new segment 


SGL 


= Segment Length 


ADR 


= Physical address returned from trap 


PBA 


= Parameter Block Address 


Declaration: 




function lshrseg(tsk : integer; 




ses : integer; 




opt : word; 




atr : word; 




sgn : array[1..4] of char; 




sga : seg_addr; 




sgl : integer; 


var adr : integer; 




pba : integer) 



integer; forward; 



LTRSEG - Transfer segment 

Directive number = 3 



The LTRSEG library routine provides access to the RMS68K 
directive TRSEG. The Transfer-Segment directive removes a 
segment from the requesting task's address space and places it 
within the address space of another task. 
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Call Line: RVL = LTRSEG(TSK,SES,OPT,ATR,SGN,SGA,ADR,PBA) 



Where: RVL 


= Returned Value (Status Code) 


TSK 


= Task Id 


SES 


= Session number 


OPT 


= Options 


ATR 


= Segment Attribute 


SGN 


= Segment name 


SGA 


= Physical or logical addr of new segment 


ADR 


= Physical address returned from trap 


PBA 


= Parameter Block Address 


Declaration: 




function ltrseg{tsk : integer; 




ses : integer; 




opt : word; 




atr : word; 




sgn : array[1..4] of char; 




sga : seg addr; 


var adr : integer; 




pba : integer) 



: integer; forward; 

LRCVSA - Receive segment attributes 

Directive number = 9 

The LRCVSA library routine provides access to the RMS68K 
directive RCVSA. The Receive-Segment-Attributes directive 
returns a description of the specified segment to the 
requesting task. 

Call Line: RVL = LRCVSA{TSK,SES,OPT,SGN,SGA,BFR,PBA) 

Where: RVL = Returned Value (Status Code) 

TSK = Task Id 

SES = Session number 

OPT = Options 

SGN = Segment Name 

SGA = Physical or logical addr of new segment 

BFR = Address of buffer containing segment 

information 

PBA = Parameter Block Address 
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Declaration: 




function lrcvsa(tsk 


integer; 


ses 


integer; 


opt 


word; 


sgn 


array[l. .4] of char; 


sga 


seg_addr; 


bfr 


integer; 


pba 


integer) 



D 



: integer; forward; 

LMOVELL - Move from logical address 

Directive number = 6 

The LMOVELL library routine provides access to the RMS58K 
directive MOVELL. The Move-Logical -Address directive requests 
that data be copied from the logical address space of one task 
to the logical address space of another task. 



Call line: 


RVL = LMOVELL(TSK,SES,LADR,DTSK,DSES 


Where: 


RVL = Returned Value (Status Code) 




TSK = Task Id 




SES = Session number 




LADR = Source Logical Address 




DTSK = Destination Taskname 




DSES = Destination Session number 




DADR = Destination Logical Addresses 




LEN' = Length of the data block 




PBA = Parameter Block Address 


Declaration: 


function 


lmovell(tsk : integer; 




ses 


integer; 




ladr 


integer; 




dtsk 


integer; 




dses 


integer; 




dadr 


integer; 




Ten 


integer; 




pba 


integer) 



: integer; forward; 
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LMOVEPL - Move from physical address 
Directive number = 72 



The LMOVEPL library routine provides access to the RMS68K 
directive MOVEPL. The Move-from-Physical -Address directive 
requests that data be copied from any physical address to a 
logical address within a target task's address space. 

Call line: RVL = LMOVEPL{PADR,DTSK,DSES,DADR,LEN,PBA) 

Where: RVL = Returned Value (Status Code) 
PADR = Source Physical Address 
DTSK = Destination Taskname 
OSES = Destination Session number 
DADR = Destination Logical Addresses 
LEN = Length of the data block 
PBA = Parameter Block Address 

Declaration: 

function lmovepl(padr : integer; 

dtsk : integer; 

dses : integer; 

dadr : integer; 

len : integer; 

pba : integer) 
: integer; forward; 



B 



LFLUSHC - Flush user cache 

Directive number = 75 



The LFLUSHC library routine provides access to the RMS68K 
directive FLUSHC. The Flush-User-Cache directive flushes all 
mode entries from all cache known to the Executive. 

Call Line: RVL = LFLUSHC() 

Where: RVL = Returned Value {Always zero) 

Declaration: 

function Iflushc 

: integer; forward; 
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5.3 TASK MANAGEMENT DIRECTIVES 



B 



LABORT - Task aborts itself 

Directive number = 14 

The LABORT library routine provides access to the RMS68K 
directive ABORT. The Abort-Self directive halts the execution 
of the requesting task and removes the task from memory. 

Call Line: RVL = LABORT(ABC) 

Where: RVL = Returned Value (Always zero) 
ABC = Abort Code 

Declaration: 

function 1 abort (abc : word) 

: integer; forward; 

LCRTCB - Create Task Control Block (TCB) 

Directive number = 11 

The LCRTCB library routine provides access to the RMS68K 
directive CRTCB. The Create-TCB directive allocates memory for 
the TCB and initializes it with information from the parameter 
block. 

Call Line: RVL = LCRTCB(TSK,SES,OPT,MNAM,MSES, IPR,LPR,ATR,ENT,UID,PBA) 

Where: RVL = Returned Value (Status Code) 
TSK = Task Id 
SES = Session number 
OPT = Options 
MNAM = Monitor Taskname 
MSES = Monitor Session Number 
IPR = Initial Priority 
LPR = Limit Priority 
ATR = Task Attributes 
ENT = Task Entry Point 
UID = User Generated Id 
PBA = Parameter Block Address 



24 



MICROSYSTEMS 



© 



MOTOROLA 



RMS68K DIRECTIVES 



LGTSKID 



Declaration: 




function 


lcrtcb(tsk 


integer; 




ses 


integer; 




opt 


word; 




mngm 


integer; 




mses 


integer; 




ipr 


byte; 




Ipr 


byte; 




atr 


word; 




ent 


integer; 




uid 


word; 




pba 


integer) 




: integer; forwar 


Get task ID 







Directive number = 12 

The LGTSKID library routine provides access to the RMS68K 
directive GTTASKID. In response to the input of a taskname and 
session number, the executive returns the target task ID. 

Call Line: RVL = LGTSKID{NAME,RSES,RTSK,PBA) 



Q 



Where: 


RVL = Returned Value (Status Code) 




NAME = TSK.SES 




TSK = Task ID 




SES = Session Number 




RSES = Session Number (Returned) 




RTSK = Task ID (Returned) 




PBA = Parameter Block Address 


Declaration: 


function 


lgtskid(tsk : integer; 




ses : integer; 




var rtsk : integer; 




var rses : integer; 




pba : integer) 



integer; forward; 



25 



MICROSYSTEMS 



® 



MOTOROLA 



RMS68K DIRECTIVES 



LGTTSKNAM 



B 



LRELINQ 



Get taskname 

Directive number 



10 



The LGTTSKNAM library routine provides access to the RMS68K 
directive GTTASKNM. The executive returns the taskname and 
session number of the target task when the task ID is entered. 

Call Line: RVL = LGTTSKNAM{TSK,SES,RTSK,RSES,PBA) 

Where: RVL = Returned Value (Status Code) 
TSK = Task ID 
SES = Session Number 
RTSK = Task ID (Returned) 
RSES = Session Number (Returned) 



Declaration: 

function lgttsknam(tsk 
ses 
var rtsk 
var rses 
pba 



nteger; 
nteger; 
nteger; 
nteger; 
nteger) 



integer; forward; 



Relinquish execution 
Directive number 



22 



The LRELINQ library routine provides access to the RMS68K 
directive RELINQ. This directive permits a task to relinquish 
control of the processor to tasks of equal or slightly lower 
priority. 

Call Line: RVL = LRELINQO 

Where: RVL = Returned Value (Status Code) 

Declaration: 

function Irelinq 

: integer; forward; 
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LRESUME - Resume target task 

Directive number = 18 

The LRESUME library routine provides access to the RMS68K 
directive RESUME. The executive resumes execution of a 
previously suspended task. 

Call Line: RVL = LRESUME{TSK,SES,PBA) 

Where: RVL = Returned Value (Status Code) 

TSK = Task ID 

SES = Session Number 

PBA = Parameter Block Address 

Declaration: 

function lresume(tsk : integer; 
ses : integer; 
pba : integer) 
: integer; forward; 

LSETPRI - Change priority of a task 

Directive number = 24 

The LSETPRI library routine provides access to the RMS68K 
directive SETPRI. The executive changes the current priority 
of the target task to the value specified. 

Call Line: RVL = LSETPRI(TSK,SES,NCPR,LPR,PBA) 

Where: RVL = Returned Value (Status Code) 
TSK = Task ID 
SES = Session Number 
NCPR = New Current Priority 
LPR = Limit Priority (Returned) 
PBA = Parameter Block Address 




Declaration: 

function lsetpri(tsk 
ses 
ncpr 
Ipr 
pba 



integer; 

integer; 

byte; 

byte; 

integer) 



integer; forward; 
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LSTART 



Start task 



Directive number = 13 

The LSTART library routine provides access to the RMS68K 
directive START. The executive puts the target task into the 
READY state, based on its current priority, to wait for 
execution. 



B 



Call Line: 


RVL = LSTART(TSK,SES,OPT,MNAM,MSES,RADR,NA 


Where: 


RVL = Returned Value (Status Code) 




TSK = Task ID 




SES = Session Number 




OPT = Options 




MNAM = Taskname 




MSES = Monitor Session 




RADR = Address of Register Area 




NAME = Taskname of Started Task (Returned) 




PBA = Parameter Block Address 


Declaratior 


i: 


function 


lstart(tsk : array{1..4] of char; 




ses : integer; 




opt : word; 




mtsk : integer; 




mnam : integer; 




var radr : res_data_area (shown below) 




var name : array[1..4] of char; 




pba : integer) 



integer; forward; 



Record - register setup area 



reg_data_ 
record 
regdO 
regdl 
regd2 
regd3 
regd4 
regdS 
regde 
regd7 
regaO 
regal 
regas 
end; 



area = 

integer; 

integer; 

array[l. .4] 

integer; 

array[l. .4] 

array[1..4] 

integer; 

integer; 

integer; 

array [1. .4] 



of char; 

of char; 
of char; 



{ taskname } 

{ session number } 

{ user volume } 

{ user number ) 

{ catalog (chars 1-4) } 

{ catalog (chars 5-8) } 

{ command line length } 

{ LUN assignment bit map } 



array[1..6] of integer 



of char; { default terminal id } 
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LSTOP 



LSUSPEND 



Stop task 

Directive number = 25 

The LSTOP library routine provides access to the RMS68K 
directive STOP. The executive stops execution of the target 
task and moves it to the DORMANT state with all resources still 
attached. 



Call Line: 


RVL 


= LSTOP(TSK,SES,NAM,PBA) 


Where: 


RVL 
TSK 
SES 
NAM 
PBA 


= Returned Value (Status Code) 

= Task ID 

= Session Number 

= Taskname (of Stopped Task) 

= Parameter Block Address 


Declaration 


. 





function lstop(tsk : integer; 
ses : integer; 
var nam : array[1..4] of char; 
pba : integer) 
: integer; forward; 

Suspend task 

Directive number = 17 

The LSUSPEND library routine provides access to the RMS68K 
directive SUSPEND. The executive places the requesting task 
into the WAIT state until a WAKEUP directive is issued by 
another task. 

Call Line: RVL 

Where: RVL 

Declaration: 

function 1 suspend 




LSUSPENDO 

Returned Value (Status Code) 

integer; forward; 
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LTERM - Task terminates itself 

Directive number = 15 

The LTERM library routine provides access to the RMS68K 
directive TERM. The executive halts execution of the 
requesting task and removes the task from memory. 

Call Line: RVL = LTERM() 

Where: RVL = Returned Value (Status Code) 

Declaration: 

function Iterm 

: integer; forward; 

LTERMT - Terminate target task 

Directive number = 15 

The LTERMT library routine provides access to the RMS68K 
directive TERMT. The executive halts execution of the target 
task and removes the task from memory. 

Call Line: RVL = LTERMT(TSK,SES,OPT,ABC,NAM,PBA) 

Where: RVL = Returned Value (Status Code) 

TSK = Task ID 

SES = Session Number 

OPT = Options 

ABC = Abort Code 

NAM = Name of Terminated Task 

PBA = Parameter Block Address 



Declaration: 




function ltermt(tsk 


array[1..4] of char; 


ses 


integer; 


opt 


word; 


abc 


word; 


var nam 


array[l. .4] of char; 


pba 


integer) 



integer; forward; 
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LWAIT - Task moves itself to WAIT state 

Directive number = 19 

The LWAIT library routine provides access to the RMS68K 
directive WAIT. The executive places the requesting task into 
the WAIT state until a WAKEUP directive is issued by another 
task. 

Call Line: RVL = LWAIT() 

Where: RVL = Returned Value (Status Code) 

Declaration: 

function Iwait 

: integer; forward; 

LWAKEUP - Wakeup target task 

Directive number = 20 

The LWAKEUP library routine provides access to the RMS58K 
directive WAKEUP. The executive moves the specified target 
task from the WAIT state to the READY state to await execution. 

Call Line: RVL = LWAKEUP(TSK,SES,PBA) 

Where: RVL = Returned Value (Status Code) 

TSK = Task ID 

SES = Session Number 

PBA = Parameter Block Address 

Declaration: 

function lwakeup(tsk : array[1..4] of char; 
ses : integer; 
pba : integer) 
: integer; forward; 



B 
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LTSKATTR - Receive task user number and attributes 

Directive number = 23 

The LTSKATTR library routine provides access to the RMS68K 
directive TSKATTR. The executive returns the target task's 
user number and attributes to the requestor. 

Call line: RVL = LTSKATTR(TSK,SES,USRN,ATTR,PBA) 

Where: RVL = Returned Value (Status Code) 

TSK = Task ID 

SES = Session Number 

USRN = User Number 

ATTR = User Attributes 

PBA = Parameter Block Address 



B 



Declaration: 




function ltskattr{tsk 


: integer; 


ses 


integer; 


var usrn 


word; 


var attr 


word; 


pba 


integer) 



integer; forward; 

LTSKINFO - Receive copy of TCB 

Directive number = 28 

The LTSKINFO library routine provides access to the RMS68K 
directive TSKINFO. The executive moves a copy of the target 
task's TCB to the requestor's address space. 

Call line: RVL = LTSKINFO(TSK,SES,OPT,BADR,PBA) 

Where: RVL = Returned Value (Status Code) 
TSK = Task ID 
SES = Session Number 
OPT = Options 
BADR = Buffer Address 
PBA = Parameter Block Address 



Declaration: 




function ltskinfo(tsk 


: integer; 


ses 


: integer; 


opt 


: word; 


badr 


: integer; 


pba 


: integer) 



integer; forward; 
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5.4 TIME MANAGEMENT DIRECTIVES 



LDELAY 



LDLAYW 



Task moves itself to DELAY state 

Directive number = 21 

The LDELAY library routine provides access to the RMS68K 
directive DELAY. The executive delays the execution of the 
requesting task until a specified amount of time elapses. 

Call Line: RVL = LDELAY(DLY) 

Where: RVL = Returned Value (Status Code) 
DLY = Length of time to delay 

Declaration: 

function ldelay(dly : integer) 

: integer; forward; 

DELAY, WTEVNT, and WAIT functions are performed 

Directive number = 30 

The LDLAYW library routine provides access to the RMS68K 
directive DLAYW. The executive delays the execution of the 
requesting task until one of the following events occurs: a 
specified amount of time elapses; an asynchronous event 
arrives; or a WAKEUP is sent to the waiting task. 

Call Line: RVL = LDLAYW{DLY) 

Where: RVL = Returned Value (Status Code) 
DLY = Length of Time to Delay 

Declaration: 

function ldlayw(dly : integer) 

: integer; forward; 

LRQSTPA - Request periodic activation 

Directive number = 29 

The LRQSTPA library routine provides access to the RMS68K 
directive RQSTPA. The executive activates the target task at 
an initial time and at optional intervals. 



B 
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Call Line: 


RVL = LRQSTPA(TSK, SES, OPT, TIME, INTV 


Where: 


RVL = Returned Value (Status Code) 




TSK = Task ID 




SES = Session Number 




OPT = Options 




TIME = Initial Time 




INTV = Interval 




SADR = Service Address 




RQID = Activation Request ID 




PBA = Parameter Block Address 


Declaration: 


function 


lrqstpa{tsk : integer; 




ses : integer; 




opt : word; 




time : integer; 




intv : integer; 




sadr : integer; 




rqid : integer; 




pba : integer) 



integer; forward; 



LGTDTIM - Get date and time 

Directive number = 74 

The LGTDTIM library routine provides access to the RMS68K 
directive GTDTIM. The executive places the current system date 
and time into the specified return parameter block. 

Call line: RVL = LGTDTIM(CDAT,CTIM,PBA) 

Where: RVL = Returned Value (Status Code) 
CDAT = Current System Date 
CTIM = Current System Time 
PBA = Parameter Block Address 

Declaration: 

function lgtdtim(var cdate : integer; 
var ctime : integer; 
pba : integer) 
: integer; forward; 
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LSTDTIM - Set system date and time 

Directive number = 73 

The LSTDTIM library routine provides access to the RMS68K 
directive STDTIM. The executive updates the system date and 
time. 

Call line: RVL = LSTDTIM(NDAT,NTIM,PBA) 

Where: RVL = Returned Value (Status Code) 
NDAT = New System Date 
NTIM = New System Time 
PBA = Parameter Block Address 



Declaration: 

function lstdtim(cdate 
ctime 
pba 



integer; 
integer; 
integer) 



: integer; forward; 




5.5 SEMAPHORE MANAGEMENT DIRECTIVES 
LATSEM - Attach to semaphore 

Directive number = 41 



The LATSEM library routine provides access to the RMS68K 
directive ATSEM. The executive allows the requesting task to 
use the specified semaphore. 

Call Line: RVL = LATSEM (SNAM.STYP, KEY, PBA) 

Where: RVL = Returned Value {Status Code) 
SNAM = Semaphore Name 
STYP = Semaphore Type 
KEY = Semaphore Key 
PBA = Parameter Block Address 

Declaration: 

function latsem{snam : array[1..4] of char; 
styp : byte; 
var key : integer; 
pba : integer) 
: integer; forward; 
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LCRSEN 



B 



LDESEM 



Create semaphore 

Directive number = 45 

The LCRSEM library routine provides access to the RMS68K 
directive CRSEM. The executive creates or re-initializes the 
specified semaphore, and allows the requesting task to use it. 

Call Line: RVL = LCRSEM{SNAM,ICNT,STYP,KEY,PBA) 



Where: RVL 
SNAM 
ICNT 
STYP 
KEY 
PBA 

Declaration: 



Returned Value (Status Code) 

Semaphore Name 

Initial Count 

Semaphore Type 

Semaphore Key 

Parameter Block Address 



function lcrsem(snam 

icnt 

styp 

var key 

pba 



array[l. .4] of char; 

byte ; 

byte; 

integer; 

integer) 



integer; forward; 

Detach from semaphore 

Directive number = 44 

The LDESEM library routine provides access to the RMS68K 
directive DESEM. The executive detaches the requesting task 
from the specified semaphore. 



Call Line: 
Where: 

Declaration: 



RVL = LDESEM(SNAM,SKEY,PBA) 

RVL = Returned Value (Status Code) 

SNAM = Semaphore Name 

SKEY = Semaphore Key 

PBA = Parameter Block Address 



function ldesem(snam : array[1..4] of char; 
skey : integer; 
pba : integer) 
: integer; forward; 
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LDESMA 



LSGSEN 



Detach from all semaphores 

Directive number = 46 

The LDESMA library routine provides access to the RMS68K 
directive DESMA. The executive detaches the requesting task 
from all semaphores. 



LDESMA {) 
Returned Value (Status Code) 



Call Line: RVL 

Where: RVL 

Declaration: 

function ldesma{: integer; forward; 

Signal semaphore 

Directive number = 43 

The LSGSEM library routine provides access to the RMS68K 
directive S6SEM. The executive increments the current signal 
count by 1. If the count is or negative, the first task on 
the semaphore waiting list is removed from the list and placed 
in the ready list to await execution. 



B 



Call Line: 
Where: 

Declaration: 



RVL = LSGSEM(SNAM,SKEY,PBA) 

RVL = Returned Value (Status Code) 

SNAM = Semaphore Name 

SKEY = Semaphore Key 

PBA = Parameter Block Address 



function lsgsem(snam : array[1..4] of char; 
skey : integer; 
pba : integer) 
: integer; forward; 
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LWTSEM - Wait on semaphore 

Directive number = 42 



B 



The LWTSEM library routine provides access to the RMS68K 
directive WTSEM. The executive decrements the current signal 
count of the specified semaphore by 1. If the count is or 
positive, the requesting task continues executing. If the 
count is negative, the requesting task is added to the 
semaphore waiting list. 

Call Line: RVL = LWTSEM(SNAM,SKEY,PBA) 

Where: RVL = Returned Value (Status Code) 
SNAM = Semaphore Name 
SKEY = Semaphore Key 
PBA = Parameter Block Address 

Declaration: 

function lwtsem(snam : array[1..4] of char; 
skey : integer; 
pba : integer) 
: integer; forward; 



5.6 TRAP SERVER MANAGEMENT DIRECTIVES 
LAKRQST - Server acknowledge request 
Directive number = 54 



The LAKRQST library routine provides access to the RMS68K 
directive AKRQST. The executive moves the target task from the 
waiting-on-acknowledgement list to the state indicated by the 
server-request-pending state. 

Call Line: RVL = LAKRQST(TSK,SES,OPT,TRP,CCOD,RA0,RD0,PBA) 

Where: 



RVL 


= Returned Value (Status Code) 


TSK 


= Task ID 


SES 


= Session Number 


OPT 


= Options 


TRP 


= Trap Number 


CCOD 


= Condition Code 


RAO 


= Register AO 


RDO 


= Register DO 


PBA 


= Parameter Block Address 
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Declaration: 




function lakrqst(tsk 


integer; 


ses 


integer; 


opt 


word ; 


trp 


byte; 


ccod 


byte; 


raO 


integer; 


rdO 


integer; 


pba 


integer) 



: integer; forward; 

LDERQST - Set user/server request status 

Directive Number = 53 

The LDERQST library routine provides access to the RMS68K 
directive DEASQ. 

Call Line: RVL = LDERQST(TNBR) 

Where: RVL = Returned Value (Status Code) 
TNBR = Trap Number 

Declaration: 

**** Entry at LNRQST for Enable Request Receipt 

function lnrqst(tnbr : byte) 

: integer; forward; 

**** Entry at LDRQST for Disable Request Receipt 

function ldrqst(tnbr : byte) 

: integer; forward; 




LDSERVE - Detach server function 

Directive number = 52 

The LDSERVE library routine provides access to the RMS68K 
directive DSERVE. A server task initiates an orderly shutdown 
of service. 

Call Line: RVL = LDSERVE(TRP) 

Where: RVL = Returned Value (Status Code) 
TRP = Trap Number 

Declaration: 

function ldserve(trp : byte) 

: integer; forward; 
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LSERVER - Task is made a server task 
Directive number = 51 



The LSERVER library routine provides access to the RMS68K 
directive SERVER. The executive establishes the requesting 
task as a server task of the trap instruction specified in the 
parameter block. 

Call Line: RVL = LSERVER(RADR, STAT, TRAP, PBSZ,PBA) 
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Where: 


RVL 


= Returned Value 


(Status Code) 




RADR 


= Request Service 


Address 




STAT 


= Status 






TRAP 


= Trap Instruction ID 




PBSZ 


= Parameter Block 


Size 




PEA 


= Parameter Block Address 


Declaration 


: 






function 


lserver(radr : integer; 








Stat : byte; 








trap : byte; 








pbsz : byte; 








pba : integer) 





: integer; forward; 

5.7 EXCEPTION MONITOR MANAGEMENT DIRECTIVES 

LDEXMON - Detach exception monitor 

Directive number = 65 

The LDEXMON library routine provides access to the RMS68K 
directive DEXMON. The executive detaches the target task from 
its exception monitor. The target task then resumes normal 
activity according to its current state. 

Call Line: RVL = LDEXMON (TSK,SES, PBA) 

Where: RVL = Returned Value (Status Code) 

TSK = Task Id 

SES = Session number 

PBA = Parameter Block Address 



Declaration: 

function ldexmon(tsk 
ses 
pba 



integer; 
integer; 
integer) 



integer; forward; 
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Set exception monitor mask 

Directive number = 66 

The LEXMMSK library routine provides access to the RMS68K 
directive EXMMSK. The specified exception monitor mask is 
attached to the target task. When an enabled exception occurs 
within the target task, the target task is placed in the wait- 
for-command state and an appropriate message is queued to the 
target task's exception monitor. 

Call Line: RVL = LEXMMSK(TSK,SES,XMSK,PBA) 

Where: RVL = Returned Value (Status Code) 
TSK = Task ID 
SES = Session Number 
XMSK = Exception Monitor Mask 
PBA = Parameter Block Address 



Declaration: 

function lexmmsk(tsk 
ses 
xmsk 
pba 



integer; 
integer; 
integer; 
integer) 




: integer; forward; 



LEXNON - Attach exception monitor 

Directive number = 64 

The LEXMON library routine provides access to the RMS68K 
directive EXMON. The executive attaches the target task to the 
exception monitor task and places the target task in the wait- 
for-command state. An event, indicating the attach, is queued 
to the exception monitor. 

Call Line: RVL = LEXMON (TSK, SES, XTSK.XSES, PBA) 

Where: RVL = Returned Value (Status Code) 
TSK = Task ID 
SES = Session Number 
XTSK = Exception Monitor Task ID 
XSES = Exception Monitor Session Number 
PBA = Parameter Block Address 



Declaration: 

function lexmon(tsk : integer; 

ses : integer; 

xtsk : integer; 

xses : integer; 

pba : integer) 
: integer; forward; 
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LPSTATE - Modify task state 

Directive number = 68 

The LPSTATE library routine provides access to the RMS68K 
directive PSTATE. An exception monitor can change the state of 
a target task by changing the values of the target task's data 
registers, address registers, user stack pointer, program 
counter, status register and exception monitor mask. 

Call Line: RVL = LPSTATE{TSK,SES,BADR,PBA) 

Where: RVL = Returned Value (Status Code) 
TSK = Task ID 
SES = Session Number 
BADR = Buffer Address 
PBA = Parameter Block Address 



D 



Declaration: 

function lpstate(tsk 
ses 
var badr 
pba 



Record 



integer; forward; 
new state information buffer 



integer; 

integer; 

newstateinfo (shown below) 

integer) 



newstateinfo 
record 
regdO 
regdl 



regd7 
regaO 

rega? 
pc 
sr 
end; 



integer; 
integer; 



integer; 
integer; 

integer; 
integer; 
word 
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LREXMON - Run task under exception monitor control 

Directive number = 69 

The LREXMON library routine provides access to the RMS68K 
directive REXMON. An exception monitor task specifies how a 
target task is to be executed. 

Call Line: RVL = LREXMON(TSK,SES,BADR,PBA) 

Where: RVL = Returned Value (Status Code) 
TSK = Task ID 
SES = Session Number 
BADR = Buffer Address 
PBA = Parameter Block Address 



Declaration: 

function lrexmon{tsk 
ses 
var badr 
pba 



integer; 

integer; 

ex_cntl_info (shown below) 

integer) 



: integer; forward; 

Record - execution control information 

execcntrlinfo = 
record 

xopt : word; { execution options) 

vloc : integer; { value location } 

val : integer; { value } 

vmsk : integer; { value mask } 

mxic : integer { maximum instruction count ) 



D 



end; 
LRSTATE - Receive task state 

Directive number = 67 



The LRSTATE library routine provides access to the RMS68K 
directive RSTATE. An exception monitor receives the current 
state of a target task. 

Call Line: RVL = LRSTATE(TSK, SES, BADR, PBA) 

Where: RVL = Returned Value (Status Code) 
TSK = Task ID 
SES = Session Number 
BADR = Buffer Address 
PBA = Parameter Block Address 
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Declaration: 

function lrstate(tsk : integer; 
ses : integer; 
var badr : receivestateinfo (shown below) 
pba : integer) 
: integer; forward; 

Record - receive state information buffer 

receivestateinfo = 
record 
regdO : integer; 
regdl : integer; 
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regd7 
regaO 

rega7 
pc 
sr 
end; 



integer; 
integer; 

integer; 
integer; 
word 



5.8 EXCEPTION MANAGEMENT DIRECTIVES 



LCISR - Configure Interrupt Service Routine (ISR) 

Directive number = 61 

The LCISR library routine provides access 
directive CISR. 



to the RMS68K 



Call Line: RVL = LCISR(TSK,SES,OPT,VEC,IADR,ARG,PBA) 

Where: RVL = Returned Value (Status Code) 

TSK = Task ID 

SES = Session Number 

OPT = Options 

VEC = Vector Number 

lADR = Interrupt Service Routine Address 

ARG = User Defined Value 

PBA = Parameter Block Address 



Declaration: 




function lcisr(tsk 


integer; 


ses 


integer; 


opt 


word; 


vec 


byte; 


iadr 


integer; 


arg 


integer; 


pba 


integer) 



{ Directive options } 

{ Vector number } 

{ ISR address } 

{ Argument } 



integer; forward; 
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LSINT - Simulate interrupt 

Directive number = 62 



The LSINT library routine provides access to the RMS68K 
directive SINT. 

Call Line: RVL = LSINT(PRTY,VEC,PBA) 

Where: RVL = Returned Value (Status Code) 
PRTY = Interrupt Priority 
VEC = Vector Number 
PBA = Parameter Block Address 

Declaration: 

function lsint(prty : byte; { Interrupt priority } 
vec : byte; { Vector number } 
pba : integer) 
: integer; forward; 



LCXVCT - Change exception vector 
Directive number = 26 



B 



The LCXVCT library routine is provided as an alternative to the 
Announce-Exception-Vector directive. Pascal already has issued 
this directive and established an exception vector table. The 
LCXVCT routine provides the user with a convenient way of 
changing one of the exception vectors by modifying the already 
established vector table. 

Input parameters 

- Exception Vector Table index 
ix = 1 Bus Error 

2 Address Error 

3 Illegal Instruction 

4 Zero divide 

5 CHK instruction 

6 Trap V instruction 

7 Privilege Violation 

- New Exception Vector 

Return parameters 

Status value = for ix's 3 and 7. 
< for ix's <1 or >7 
= 1 for ix's 1,2,4,5 and 6 (Pascal uses these.) 
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Call Line: RVL = LCXVCT(XVCTX,NUXVEC) 

Where: RVL = Returned Value (Status Code) 
XVCTX = Exception Vector Table Index 
NUXVEC = New exception vector 

Declaration: 

function lcxvct(xcxvct : byte; 

nuxvec : integer; 
: integer; forward; 



LCTVCT - Change trap vector 

Directive Number = 27 



B 



The LCTVCT library routine is provided as an alternative to the 
Announce-Trap-Vector directive. Pascal already has issued this 
directive and established a trap vector table. The LCXVCT 
routine provides the user with a convenient way of changing one 
of the trap vectors by modifying the already established vector 
table. 

Input parameters 

- Trap Vector Table index 

2-15 for TRAPS #2 - #15 

- New Trap Vector 

Return parameters 

Status value = for normal return. 
< for ix's <2 or >15 
= 1 for 13 or 14 since Pascal uses them. 

Call Line: RVL = LCTVCT{TVCTX,NUTVEC) 

Where: RVL = Returned Value (Status Code) 
TVCTX = Trap Vector Table Index 
NUTVEC= New Trap Vector 

Declaration: 

function lctvct(tvctx : byte; 

nutvec : integer; 
: integer; forward; 
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LCDIR - Configure a new directive 

Directive Number = 58 

Can line: RVL = LNCDIR(DNBR,OPT,DRAD,PBA) 
or 
RVL = LDCDIR(DNBR,OPT,DRAD,PBA) 

Where: RVL = Returned Value (Status Code) 
DNBR = Directive Number 
OPT = Options 

DRAD = Directive Routine Address 
PBA = Parameter Block Address 

**** Entry at LNCDIR for Disable Directive 

Declaration: 

function lncdir(dnbr : word; 
opt : word; 
drad : integer; 
pba : integer 
: integer; forward; 

**** Entry at LDCDIR for Disable Directive 

Declaration: 

function ldcdir(dnbr : word; 
opt : word; 
drad : integer; 
pba : integer 
: integer; forward; 

LSNAPTRAC - Snap of system trace table 

Directive Number = 8 

The LSNAPTRAC library routine provides access to the RMS68K 
directive SNAPTRAC. 

Call line: RVL = LSNAPTRAC (BADR) 

Where: RVL = Returned Value (Status Code) 
BADR = Buffer Address 

Declaration: 

function lsnaptrac(badr : integer; 

: integer; forward; 
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5.9 DRIVER DIRECTIVES 

LCMR - Channel Management Requests (CMR) 

Directive Number = 60 

The LCMR library routine provides access to the RMS68K 
directive CMR. The executive invokes the CMR handler when a 
directive 60 is issued. 

Call Line: RVL = LCMR(PBA) 

Where: RVL = Returned Value (Status Code) 
PBA = Parameter Block Address 

Declaration: 

function lcmr(pba : integer; 

: integer; forward; 
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CHAPTER 6 
lOS DIRECTIVES 



The lOS directives have been organized into four directive types. The 
directives are described as follows: 



DATA TRANSFER REQUESTS 



LREAD LWRITE LOUTIN LUPDATE 
LDELETE L FORMAT LTBRAK 



COMMAND FUNCTION REQUESTS 

LPOSITION LREWIND LTESTIO LWAITO 
LHALTIO LBRKSRV LCONFST LCONFIG 

CLAIM/NEGATE DRIVER EVENTS 

LNEGBRK 
PRIVILEGED REQUESTS 

LCNFDEF 

6.1 DATA TRANSFER REQUESTS 

LREAD - Read request 

Code = $00 Function = $01 

The LREAD library routine provides access to the lOS directive 
Read. 

Call Line: RVL = LREAD (LUN,RRN, ADR, LGN.LDT, OPT, CAD, PBA) 

Where: RVL = Returned Value 

LUN = Logical Unit (1 Byte) 

RRN = Random Record Number 

ADR = Buffer Address 

LGN = Length of Data Buffer 

LOT = Length of Data Transfer 

OPT = Options 

CAD = Completion Address 

PBA = Parameter Block Address 
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Declaration 






function 


lread(lun 


byte; 




var rrn 


integer; 




adr 


integer; 




Ign 


integer; 




var Idt 


integer; 




opt 


word; 




rtn 


integer; 




pba 


integer) 



B 



: integer; forward; 

LWRITE - Write request 

Code = $00 Function = $02 

The LWRITE library routine provides access to the lOS directive 
Write. 

Call Line: RVL = LWRITE(LUN,RRN,ADR,LGN,LDT,OPT,CAD,PBA) 

Where: RVL = Returned Value 

LUN = Logical Unit (1 Byte) 

RRN = Random Record Number 

ADR = Buffer Address 

LGN = Length of Data Buffer 

LDT = Length of Data Transfer 

OPT = Options 

CAD = Completion Address 

PBA = Parameter Block Address 



Declaration: 

function lwrite(lun : byte; 

var rrn : integer; 

adr : integer; 

Ign : integer; 

var Idt : integer; 

opt : word; 

cad : integer; 

pba : integer) 

: integer; forward; 
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LOUTIN - Output with input request 

Code = $00 Function = $04 



The LOUTIN library routine provides access to the lOS directive 
Output-With-Input. This call allows a task to write to a 
device and at the same time issue a read for response. (The 
operation requires an interactive device that supports the 
call.) 

Call Line: RVL = LOUTIN{LUN,SAD,ADR,LGN,LDT,OPT,CAD,PBA) 

Where: RVL = Returned Value 

LUN = Logical Unit (1 Byte) 
SAD = Buffer Address (Input) 
ADR = Buffer Address (Output) 
LGN = Length of Data Buffer 
LOT = Length of Data Transfer 
OPT = Options 
CAD = Completion Address 
PBA = Parameter Block Address 



Declaration: 




function loutin(lun 


byte; 


var sad 


integer; 


adr 


integer; 


Ign 


integer; 


var Idt 


integer; 


opt 


word; 


cad 


integer; 


pba 


integer) 




: integer; forward; 

LUPDATE - Update record 

Code = $00 Function = $08 

The LUPDATE library routine provides access to the lOS 
directive Update-Record. The Update-Record function is valid 
only for an assignment to a non-contiguous file. Update-Record 
must be used when changing an existing record in a file. 

Call Line: RVL = LUPDATE(LUN,RRN,ADR,LGN,LDT,OPT,CAD,PBA) 

Where: RVL = Returned Value 

LUN = Logical Unit (1 Byte) 

RRN = Random Record Number 

ADR = Buffer Address 

LGN = Length of Data Buffer 

LDT = Length of Data Transfer 

OPT = Options 

CAD = Completion Address 

PBA = Parameter Block Address 
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LDELETE 



Declaration: 






function 


lupdate(lun : 


byte; 




var 


rrn : 


integer; 






adr : 


integer; 






Ign : 


integer; 




var 


Idt : 


integer; 






opt : 


word; 






cad : 


integer; 






pba : 


integer) 






: integer; forw 


Delete record 









B 



Code = $00 Function = $10 

The LDELETE library routine provides access to the IDS 
directive Delete-Record. The Delete-Record request is valid 
only for an assignment to an index sequential file. 

Call Line: RVL = LDELETE(LUN,RRN,OPT,CAD,PBA) 

Where: RVL = Returned Value 

LUN = Logical Unit (1 Byte) 

RRN = Random Record Number 

OPT = Options 

CAD = Completion Address 

PBA = Parameter Block Address 



Declaration: 




function ldelete{lun 


byte; 


var rrn 


integer; 


opt 


word; 


cad 


integer; 


pba 


integer) 



integer; forward; 



52 



MICROSYSTEMS 



(g) MOTOetOLA 



lOS DIRECTIVES 



LFORMAT 



LTBRAK 



Format disk 
Code = $00 



Function = $20 



The LFORMAT library routine provides access to the lOS 
directive Format. The Format request causes a disk or a track 
to be formatted. 

Call Line: RVL = LFORMAT(LUN,PSN,OPT,PBA) 

Where: RVL = Returned Value 

LUN = Logical Unit (1 Byte) 
PSN = Physical Sector Number 
OPT = Options 
PBA = Parameter Block Address 

Declaration: 

function 1 format (lun : byte; 

var psn : integer; 
opt : word; 
pba : integer) 
: integer; forward; 



Transmit break 

Code = $00 Function 



$40 



Q 



The LTBRAK library routine provides access to the lOS directive 
Transmit-Break. The Transmit-Break request, which applies only 
to interactive devices, sends a break to the logical unit 
specified. 



Call Line: 
Where: 

Declaration: 



RVL = LTBRAK{LUN,OPT,PBA) 

RVL = Returned Value 

LUN = Logical Unit (1 Byte) 

OPT = Options 

PBA = Parameter Block Address 



function ltbrak(lun : byte; 
opt : word; 
pba : integer) 
: integer; forward; 
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6.2 COMMAND FUNCTION REQUESTS 

LPOSITION - Position 

Code = $01 Function = $01 

The LPOSITION library routine provides access to the lOS 
directive Position. 

Call Line: RVL = LPOSITION(LUN,RRN,OPT,PBA) 

Where: RVL = Returned Value 

LUN = Logical Unit (1 Byte) 
RRN = Random Record Number 
OPT = Options 
PBA = Parameter Block Address 

Declaration: 

function lposition(lun : byte; 

var rrn : integer; 
opt : word; 
pba : integer) 
: integer; forward; 

REWIND - Rewind 

Code = $01 Function = $02 

The LREWIND library routine provides access to the lOS 
directive Rewind. 

Call Line: RVL = LREWIND(LUN,RRN,OPT,PBA) 

Where: RVL = Returned Value 

LUN = Logical Unit (1 Byte) 
RRN = Random Record Number 
OPT = Options 
PBA = Parameter Block Address 

Declaration: 

function lrewind(lun : byte; 

var rrn : integer; 
opt : word; 
pba : integer) 
: integer; forward; 
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LTESTIO - Test I/O complete 

Code = $01 Function = $04 

The LTESTIO library routine provides access to the lOS 
directive Test-I/O-Complete. The Test-I/O-Complete call 
returns with a condition code of (Z bit = 1) if there is no 
outstanding I/0-Proceed to the specified logical unit by the 
task. 

Call Line: RVL = LTESTIO{LUN,PBA) 



Where: RVL = Returned Value 

LUN = Logical Unit (1 Byte) 
PEA = Parameter Block Address 

Declaration: 



function ltestio(lun : byte; 

pba : integer) 
: integer; forward; 

LWAITO - Wait only 

Code = $01 Function = $08 

The LWAITO library routine provides access to the lOS directive 
Wait-Only. The Wait-Only request places the task into I/O WAIT 
until the completion of a previous I/0-Proceed request to the 
specified logical unit. 

Call Line: RVL = LWAITO{LUN,PBA) 

Where: RVL = Returned Value 

LUN = Logical Unit (1 Byte) 
PBA = Parameter Block Address 

Declaration: 

function lwaito(lun : byte; 

pba : integer) 
: integer; forward; 
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LHALTIO - Halt I/O 

Code = $01 Function = $10 

The LHALTIO library routine provides access to the lOS 
directive Halt-I/0. A Halt-I/0 request cancels an I/0-Proceed 
request that has been previously issued. 

Call Line: RVL = LHALTIO(LUN,PBA) 

Where: RVL = Returned Value 

LUN = Logical Unit (1 Byte) 
PBA = Parameter Block Address 

Declaration: 

function lhaltio(lun : byte; 

pba : integer) 
: integer; forward; 

LBRKSRV - Break service 

Code = $01 Function = $20 

The LBRKSRV library routine provides access to the lOS 
directive Local -Break-Cl aimer. The Local -Break-Cl aimer request 
applies only to interactive devices. When a break condition is 
present on the device specified, an attention event is sent to 
the requesting task. 

Call Line: RVL = LBRKSRV (LUN, OPT, CAD, PBA) 

Where: RVL = Returned Value 

LUN = Logical Unit (1 Byte) 
OPT = Options 
CAD = Completion Address 
PBA = Parameter Block Address 

Declaration: 

function lbrksrv(lun : byte; 
opt : word; 
cad : integer; 
pba : integer) 
: integer; forward; 
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LCONFST - Configuration status 

Code = $01 Function = $40 

The LCONFST library routine provides access to the lOS 
directive Configuration-Status. The Configuration-Status 
request may be executed by any task that has an assignment for 
the device for which the current configuration information is 
desired. 

Call Line: RVL = LCONFST(LUN,OPT,CPB,PBA) 

Where: RVL = Returned Value 

LUN = Logical Unit (1 Byte) 
OPT = Options 

CPB = Configuration Block Address 
PBA = Parameter Block Address 

Declaration: 

function lconfst(lun : byte; 
opt : word; 
cpb : integer; 
pba : integer) 
: integer; forward; 

LCONFIG - Configure device 

Code = $01 Function = $80 

The LCONFIG library routine provides access to the lOS 
directive Configure-Device. The Configure-Device request may 
be executed by any task that has an assignment for the device 
to be configured. 

Call Line: RVL = LCONFIG{LUN,OPT,CPB,PBA) 

Where: RVL = Returned Value 

LUN = Logical Unit (1 Byte) 
OPT = Options 

CPB = Configuration Block Address 
PBA = Parameter Block Address 

Declaration: 

function lconfig(lun : byte; 
opt : word; 
cpb : integer; 
pba : integer) 
: integer; forward; 
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6.3 CLAIM/NEGATE DRIVER EVENTS 
LNEGBRK - Negate local break cl aimer 

Code = $02 Function = $01 



B 



The LNEGBRK library routine provides access to the lOS 
directive Negate-Local-Break-Cl aimer. The Negate-Local -Break- 
Claimer request applies only to interactive devices. A task 
that previously requested break service may obtain release from 
break-service responsibility via this request. 

Call Line: RVL = LNEGBRK(LUN,PBA) 

Where: RVL = Returned Value 

LUN = Logical Unit (1 Byte) 
PBA = Parameter Block Address 

Declaration: 

function lnegbrk(lun : byte; 

pba : integer) 
: integer; forward; 



6.4 PRIVILEGED REQUESTS 
LCNFDEF - Configure defaults 

Code = $80 Function = $02 



The LCNFDEF library routine provides access to the lOS 
directive Configure-Defaults. The Configure-Defaults request 
alters the default configuration of a device. 

LCNFDEF{LUN,OPT,CPB,PBA) 

Returned Value 

Logical Unit (1 Byte) 

Options 

Configuration Block Address 

Parameter Block Address 



function lcnfdef(lun : byte; 
opt : word; 
cpb : integer; 
pba : integer) 
: integer; forward; 



Call Line: 


RVL 


Where: 


RVL 




LUN 




OPT 




CPB 




PBA 


Declaration 


; 
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CHAPTER 7 
FHS DIRECTIVES 



The FHS directives have been organized into two types. These types are 
described as follows: 



DEVICE/FILE COMMANDS 



LCHKPT LFDELETE LFCLOSE LPROTECT 

LRENAME LCHGPERM LASSIGN LALLOC 

LFCHVOL LCHGLUN LFCHDEV LFCHDIR 
LRTVATTR 

LDR Directive 

LLOADER 

7.1 DEVICE/FILE COMMANDS 

LCHKPT - Checkpoint 

Code = $00 Command = $01 

The LCHKPT library routine provides access to the FHS directive 
Checkpoint. The Checkpoint function empties the buffered FMS 
buffers by writing to the file, or by copying the buffers to the 
user's input buffer. For an indexed file, the function updates 
the directory entry. 

Call Line: RVL = LCHKPT(LUN,PBA) 

Where: RVL = Returned Value 
LUN = Logical Unit 
PBA = Parameter Block Address 

Declaration: 

function lchkpt(luri : byte; 

pba : integer) 

: integer; forward; 

b. LFDELETE - File delete 

Code = $00 Command = $02 

The LFDELETE library routine provides access to the FHS directive 
Delete. The Delete function deletes the file's directory entry 
by zeroing out the first character of the filename field, and 
releases the space on the disk previously occupied by the file. 
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LFCLOSE 
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Call Line: RVL = LFDELETE(FDES,WCOD,RCOD,PBA) 

Where: RVL = Returned Value 
FDES = File Descriptor 
WCOD = Write Code 
RCOD = Read Code 
PBA = Parameter Block Address 

Declaration: 

function lfdelete(var fdes : file_dscrpt; 
wcod : byte; 
rcod : byte; 
pba : integer) 
: integer; forward; 

File descriptor record 



(shown below) 



file dscrpt = 








record 








vol id : 


array[l. 


.4] 


of char; 


user_nnibr : 


word; 






catalog : 


array[l. 


.8] 


of char; 


file_nanie : 


array[l. 


.8] 


of char; 


extension : 


array[l. 


.2] 


of char 


end; 








File close 








Code = $00 Command 


= $04 







The LFCLOSE library routine provides access to the FHS directive 
Close. The Close function discontinues an assigned logical 
connection between a task and a file or device. 



Call Line: 
Where: 

Declaration: 



RVL = LFCLOSE (LUN, PBA) 

RVL = Returned Value 

LUN = Logical unit 

PBA = Parameter Block Address 



function lfclose(lun : byte; 

pba : integer) 

: integer; forward; 
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LPROTECT - Protect 

Code = $00 Command = $08 

The LPROTECT library routine provides access to the FHS directive 
Protect. The Protect function changes an assigned file's access 
permission codes. 

Call Line: RVL = LPROTECT {LUN,WCOD,RCOD,PBA) 

Where: RVL = Returned Value 

LUN = Logical Unit 

WOOD = Write Code 

RCOD = Read Code 

PBA = Parameter Block Address 

Declaration: 

function 1 protect (lun: byte; 
wcod : byte; 
rcod : byte; 
pba : integer) 
: integer; forward; 



LRENAME - Rename 



Code = $00 Command = $10 

The LRENAME library routine provides access to the FHS directive 
Rename. The Rename function changes an assigned filename. 

Call Line: RVL = LRENAME(LUN,FDES,PBA) 

Where: RVL = Returned Value 
LUN = Logical Unit 
FDES = File Descriptor Address 
PBA = Parameter Block Address 




Declaration: 



function lrename(lun : byte; 

var fdes : filedscrpt; 
pba : integer) 
: integer; forward; 



(shown below) 
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File descriptor record 



filedscrpt = 








record 








volid 


: array[l. 


.4] 


of char; 


usernmbr 


: word; 






catalog 


: array[l. 


.8] 


of char; 


file name 


: array [1. 


.8 


of char; 


extension 


: arrayfl. 


.2 


of char 


end; 









LCHGPERM - Change access permission 

Code = $00 Command = $20 

The LCHGPERM library routine provides access to the FHS directive 
Change-Access-Permission. The Change-Access-Permission function 
allows the user to change the current access permission of a file 
or device that is assigned. 

Call Line: RVL = LCHGPERM(LUN,OPT,WCOD, RCOD, PBA) 




Where: 


RVL = Returned Value 

LUN = Logical Unit 

OPT = Options 

WCOD = Write Code 

RCOD = Read Code 

PBA = Parameter Block Address 


Declaration: 


function 


lchgperm(lun : byte; 
opt : word; 
wcod : byte; 
rcod : byte; 
pba : integer) 



integer; forward; 
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LASSIGN - Assign 

Code = $00 Command = $40 

The LASSIGN library routine provides access to the FHS directive 
Assign. The Assign function establishes a logical connection 
between a file or device and the task through a specified logical 
unit under a given access permission. 

Call Line: 
RVL = LASSIGN{LUN,OPT,FDES,WCOD,RCOD,RECL,SIZ,SSSA,SSEA,SSN,FTYP,PBA) 

Where: RVL = Returned Value 
LUN = Logical Unit 
OPT = Options 

FDES = File Descriptor Address 
WCOD = Write Code 
RCOD = Read Code 
RECL = Record Length 
SIZ = Size/Pointer 

SSSA = Shared Segment Starting Address 
SSEA = Shared Segment Ending Address 
SSN = Shared Segment Name 
FTYP = File Type and User Attributes 
PBA = Parameter Block Address 



Declaration: 




function lassign(lun 


byte; 


opt 


word; 


var fdes 


file_dscrpt; 


wcod 


byte; 


rcod 


byte; 


var reel 


word; 


var siz 


siz rec; 


sssa 


integer; 


var ssea 


integer; 


var ssn 


integer; 


var ftyp 


word; 


pba 


integer) 


: intec 


jer; forward; 


File descriptor recon 


J 


file_dscrpt = 




record 




vol id : arr< 


iy[1..4] of char; 


usernmbr : won 


i; 


catalog : arr< 


iy[1..8] of char; 


filename : arr; 


iy[1..8] of char; 


extension : arr< 


iy[1..2] of char 


end; 





(shown below) 
(shown below) 
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LALLOC 



Size record 






siz rec 






record 






rsrvd 




: byte; 


keys i z 




: byte; 


fab siz 




: byte; 


data_bl k_ 


siz 


: byte; 


end; 






Allocate 







Code = $00 Command = $80 

The LALLOC library routine provides access to the FHS directive 
Allocate. The Allocate function reserves space on a direct- 
access device and in the directory-specified file type. 
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Call Line: 


RVL = LALLOC(OPT, FDES, WCOD, RCOD 


RECL, SIZ, PBA) 


Where: 


RVL = Returned Value 

OPT = Options 

FDES = File Descriptor Address 

WCOD = Write Code 

RCOD = Read Code 

RECL = Record Length 

SIZ = Size/Pointer 

PBA = Parameter Block Address 




Declaration 


: 




function 


lalloc( 

opt : word; 






var fdes : file dscrpt; 


(shown below) 




wcod : byte; 






rcod : byte; 






reel : word; 






siz : siz rec; 


(shown below) 




pba : integer) 





integer; forward; 
File descriptor record 



file_dscrpt = 

record 
volid 
user_nmbr 
catalog 
file_name 
extension 

end; 



array[I. .4] of char; 

word; 

array[1..8] of char; 

array[I..8] of char; 

arrayfl. .2] of char 
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LFCHVOL 



Size record 




s i zrec 




record 




rsrvd 


: byte; 


keysiz 


: byte; 


fabsiz 


: byte; 


data blk siz 


: byte; 


end; 




ch default volume 




Code = $01 Command = 


= $08 



The LFCHVOL library routine provides access to the FHS directive 
Fetch-Default-Volume. The Fetch-Default-Volume routine returns 
the requested default volume in the volume-ID field. 

Call Line: RVL = LFCHVOL (FDES,PBA) 

Where: RVL = Returned Value 

FDES = File Descriptor Address 
PBA = Parameter Block Address 

Declaration: 



function lfchvol(var fdes : filedscrpt; 
pba : integer) 
: integer; forward; 

File descriptor record 



(shown below) 



filedscrpt = 

record 
volid 
usernmbr 
catalog 
filename 
extension 

end; 



array[1..4] of char; 

word; 

array[1..8] 

array[1..8] 

arrayfl. .2] 



of char; 
of char; 
of char 
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LCHGLUN - Change LUN assignment 

Code = $01 Command = $10 

The LCHGLUN library routine provides access to the FHS directive 
Change-LUN-Assignment. The Change-LUN-Assignment request allows 
the changing of a logical unit assignment from one task to 
another. 

Call Line: RVL = LCHGLUN(LUA,OPT,LUB,TSK,SESS,PBA) 

Where: RVL = Returned Value 

LUA = Logical Unit for Calling Task 

OPT = Options 

LUB = Logical Unit for Called Task 

TSK = Taskname 

SESS = Session Number 

PBA = Parameter Block Address 

Declaration: 

function lchglun(lua : byte; 

opt : word; 

lub : byte; 

tsk : array[1..4] of char; 

sess : integer; 

pba : integer) 
: integer; forward; 

LFCHDEV - Fetch device mnemonics 

Code = $01 Command = $20 

The LFCHDEV library routine provides access to the FHS directive 
Fetch-Device-Mnemonics. The Fetch-Device-Mnemonics function 
returns the device name, volume-ID, and status of all devices 
known to the system. 

Call Line: RVL = LFCHDEV(BPTR,BLGN,PBA) 

Where: RVL = Returned Value 
BPTR = Buffer Pointer 
BLGN = Buffer Length 
PBA = Parameter Block Address 
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Declaration: 

function lfchdev(var bptr : array[1..10] of device_mneni; 

(shown below) 
var blgn : device_size; (shown below) 
pba : integer) 
: integer; forward; 

Device mnemonic record 



device_mnein 




record 




devicename : 


integer; 


volume id : 


integer; 


reserved : 


byte; 


status : 


byte 


end; 




Device size record 


devicesize 




record 




nmbr_entries 


: word; 


total_entries 


: word 


end; 





LFCHDIR - Fetch directory entry 

Code = $01 Command = $40 

The LFCHDIR library routine provides access to the FHS directive 
Fetch-Directory-Entry. The Fetch-Directory-Entry function 
returns a directory entry (60 bytes) with each call. An end-of- 
directory status is indicated with the last directory. 

Call Line: RVL = LFCHDIR(LUN,FDES,SIZ,PBA) 

Where: RVL = Returned Value 
LUN = Logical Unit 
FDES = File Descriptor Address 
SIZ = Size/Pointer 
PBA = Parameter Block Address 

Declaration: 

function lfchdir(lun : byte; 

var fdes : filedscrpt; (shown below) 
var siz : sizrec; (shown below) 
pba : integer) 
: integer; forward; 
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File descriptor record 

filedscrpt = 
record 
volid : array[1..4] of char; 

usernmbr : word; 
catalog : array[1..8] of char; 
filename : array[1..8] of char; 
extension : array[I..2] of char 
end; 

Size record 



sizrec 
record 

rsrvd 

keysiz 

fabsiz 

datablksiz 
end; 



byte; 
byte; 
byte; 
byte; 
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LRTVATTR - Retrieve attributes 

Code = $01 Command = $80 

The LRTVATTR library routine provides access to the FHS directive 
Retrieve-Attributes. The Retrieve-Attributes function gives the 
user access to physical attribute information pertaining to a 
particular device. 

Call Line: RVL = LRTVATTR(LUN,FDES,DEVA,RECL,SIZ,FTYP,PBA) 



Where: 


RVL = Returned Value 




LUN = Logical Unit 




FDES = File Descriptor Address 




DEVA = Device Attributes 




RECL = Record Length 




SIZ = Size/Pointer 




FTYP = File Type and User Attributes 




PBA = Parameter Block Address 


Declaration: 


function 


lrtvattr(lun : byte; 




var fdes : filedscrpt; (shown below) 




var deva : word; 




var reel : word; 




var si z : siz_rec; (shown below) 




var ftyp : word; 




pba : integer) 



integer; forward; 
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File descriptor record 



filedscrpt = 
record 
volid 
user nmbr 
catalog 
file_name 
extension 
end; 

Size record 



array[l. .4] of char; 

word; 

array[l. .8] of char; 

array[l. .8] of char; 

array [1.. 2] of char 



sizrec 
record 

rsrvd : byte; 

key_siz : byte; 

fab_siz : byte; 

datablksiz : byte; 
end; 



7.2 LOADER DIRECTIVE 
LLOADER 



Directive Number = $01 

The LLOADER library routine provides access to the FHS directive 
Loader. 

Call Line: RVL = LLOADER(LPBA) 

Where: RVL = Returned Value 

LPBA = Loader Parameter Block Address 

Declaration: 

function lloader(lpb_ptr : integer) 

: integer; forward; 
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APPENDIX A 
GENERIC TRAP ROUTINES 

Generic TRAP routines have been provided for the TRAP #2 and TRAP #3 
directives to allow for more efficient I/O processing. In these cases, the 
address of the parameter block is the only argument. 

a. LTRAP2 - TRAP #2 interface 

This subroutine allows access to lOS via TRAP #2s. 

Call Line: RVL = LTRAP2(PBA) 

Where: RVL = Returned Value 

PBA = Parameter Block Address* 

Declaration: 

function ltrap2{var bloc : iosprmblk) 
: integer; forward; 

b. LTRAP3 - TRAP #3 interface 

This subroutine allows access to FHS via TRAP #3s. 

Call Line: RVL = LTRAP3(PBA) 

Where: RVL = Returned Value 

PBA = Parameter Block Address* 

Declaration: 

function 1trap3{var bloc : fhsprmblk) 
: integer; forward; 
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APPENDIX B 
RESIDENT RUN-TIME LIBRARY SOURCE FILE 



B.l EQUATE FILES 

INCLUDE 9995.RRTL.RRTL.EQ 

IFNE S$RMS 

IFEQ LANGID-L$Pascal 

INCLUDE 9998.RR.FI0EQU.SA 
ENDC 
ENDC 

B.2 MACRO FILE 

INCLUDE 9995.RRTL.RRTL.MC 

SECTION 8 
RTLVEC EQU * 

DC.L RRTLEND-RTLVEC 

JUMP VECTOR TABLE 

VECTBL EQU * 

IFNE S$RMS 
DC.L L$ATTSEG-* 



RRTL EQUATES 



RRTL MACROS 



- LONG JSR ROUTINE VECTOR 



DC.L 
ENDC 
IFNE 

DC.L 



L$CMR-* 

S$IOS 
L$READ-* 



DC.L 
ENDC 
IFNE 

DC.L 



L$CNFDEF-* 

S$FHS 

LSCHKPT-* 



DC.L 
ENDC 
IFNE 

DC.L 



L$LOADER-* 

S$GEN 

L$TRAP1-* TRAP #1 SUBROUTINE 



DC.L 



L$TRAP4-* TRAP #4 SUBROUTINE 
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ENDC 




IFNE 


S$GP 


DC.L 


L$LOC-* 


DC.L 


L$DEF-* 


ENDC 





LOCATION SUBROUTINE 

PROVIDE DEFAULT DATA SUBROUTINE 



B.3 RUN-TIME LIBRARY SOURCE 

IFNE S$RMS 

INCLUDE 9998.RRTL.SRCRMS.SA 
ENDC 
IFNE S$IOS 

INCLUDE 9998. RRTL. SRC lOS.SA 
ENDC 
IFNE S$FHS 

INCLUDE 9998. RRTL. SRCFHS.SA 
ENDC 
IFNE S$GEN 

INCLUDE 9998. RRTL. SRCGEN.SA 
ENDC 
IFNE S$GP 

INCLUDE 9998. RRTL. SRCGP.SA 
ENDC 



RMS Directives 
lOS Directives 
FHS Directives 
Generic Routines 
General Purpose Routines 



B.4 COMMON SUBROUTINES 



IFNE S$IOS 

INCLUDE 9998. RRTL. SUBSIOS.AI 
ENDC 
IFNE S$FHS 

INCLUDE 9998. RRTL. SUBSFHS.AI 
ENDC 
IFNE S$RMS 

INCLUDE 9998. RRTL. SUBSRMS.AI 
ENDC 
END 



lOS Directives 
FHS Directives 
RMS Directives 
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ABORT 




24 


Abort-Self 




24 


access code module 




11 


access permission 




61-63 


Allocate 




64 


Allocate-a-Segment 




19 


Allocate-ASQ 




14 


ASQ 




See Asynchronous Service Queue 


ASR 




See Asynchronous Service Routine 


assembly language 




5 


Assign 




53 


asynchronous event 




33 


Asynchronous Service Queue 


(ASQ) 


14-17 


Asynchronous Service Routine (ASR) 


14, 16-17 


Attach- Except ion-Monitor 




41 


Attach-to-Semaphore 




35 


Attach-a-Shareabl e-Segment 




17 


attention event 




56 


bit map 




28 


buffer 




15, 16, 66 


cache 




23 


calling program 




6 


calling sequence 




7 


chain file 




7, 8, 11 


Change-Exception-Vector 




45 


Change-Priority 




27 


Change-Trap-Vector 




46 


Change-Access- Permission 




62 


Change-LUN-Assignment 




66 


Channel Management Request (CMR) 


3, 48 


Checkpoint 




59, 59 


CMR 




See Channel Management Request 


command syntax 




1 


compiler 




6, 9 


condition code 




38, 55 


Configuration-Status 




57 


Configure-a-New-Directive 




47 


Configure-Defaults 




58 


Configure-Device 




57 


Configure- Interrupt-Service 


-Routine 


44 


control block 




24 


Create-TCB 




24 


customized library 




9 


data block 




22, 23 


data management 




2, 4, 5 


data register 




3, 4, 5, 42 


data transfers 




4 


Deallocate-a-Segment 




18 


Deallocate-ASQ 
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18 




default buffer 


15 




DELAY state 


33 




Delete function 


59 




Delete-Record 


52 




Detach- Except ion -Monitor 


40 




Detach-From-al 1 -Semaphores 


37 




Detach -Server- Function 


39 




directive subset 


10 




directory 


59, 67 




DORMANT state 


5, 29 




EMH 


See Error Message Handler 


END 


8, 74 




entry point 


24 




error message 


4, 5 




Error Message Handler (EMH) 


4, 5 




event management 


3, 13, 


14-17 


exception conditions 


5 




exception management 


3, 13, 


44-47 


exception monitor 


3, 13, 


40, 43 


exception monitor management 


3, 13, 


40-44 


exception monitor mask 


41, 42 




exception monitor task 


41, 43 




exit 


6 




external definition 


11 




external reference file 


11 




Fetch-Default-Volume 


65 




Fetch-Device-Mnemonics 


66 




Fetch-Directory-Entry 


67 




FHS 


See Fi" 


e Handling Services 


File close 
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File Handling Services (FHS) 


4, 10, 


59-69, 71, 73, 74 


Flush-User-Cache 


23 




Format request 


53 




Get-Date-and-Time 


34 




Get-Task-ID 


25 




Get-Taskname 


26 




Get-Event 


15 




global variable 


6 




Grant-Shared-Segment-Access 


20 




Halt-I/0 


56 




I/0-Proceed 


55, 55 




illegal instruction 


45 




include file 


11 




index sequential file 


52 




indexed file 


59 




Input/Output Services (lOS) 


4, 9, 


10, 49-58, 71, 73, 74 


interactive device 


51 




interrupt 


16, 45 




interrupt priority 


45 




Interrupt Service Routine (ISR) 


44 




IDS 


See Input/Output Services 


lOS function code 


4 
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ISR 


See Interrupt Service Routine 


kernel 


3 




LABORT 


13 


, 24 


LAKRQST 


13 


, 38 


LALLOC 


59 


, 64 


LASSIGN 


59 


, 63 


LATSEM 


13 


, 35 


LATTSEG 


13 


, 17 


LBRKSRV 


49 


, 56 


LCDIR 


13 


, 47 


LCHGLUN 


59 


, 66 


LCHGPERM 


59 


, 62 


LCHKPT 


59 




LCISR 


13 


, 44 


LCNFDEF 


49 


58 


LCONFIG 


49 


57 


LCONFST 


49 


57 


LCRSEM 


13 


36 


LCRTCB 


13 


24 


LCTVCT 


13 


46 


LCXVCT 


13 


45, 46 


LDCLSHR 


13 


18 


LDEASQ 


13 


14 


LDELAY 


13 


33 


LDELETE 


49 


52 


LDERQST 


13 


39 


LDESEG 


13 


18 


LDESEM 


13 


36 


LDESMA 


13 


37 


LDEXMON 


13 


40 


LDLAYW 


13 


33 


LDSERVE 


13 


39 


LEXMMSK 


13 


41 


LEXMON 


13 


41 


LFCHDEV 


59 


66 


LFCHDIR 


59 


67 


LFCHVOL 


59 


65 


LFCLOSE 


59 


60 


LFDELETE 


59 


60 


LFLUSHC 


13 


23 


LFORMAT 


49 


53 


LGTASQ 


13 


14 


LGTDTIM 


13 


34 


LGTEVNT 


13 


15 


LGTSEG 


13 


19 


LGTSKID 


13 


25 


LGTTSKNAM 


13 


26 


LHALTIO 


49 


56 


LIB 


Sei 


i Loader Information Block 


library access routines 


9 




library modules 


10 




library routine, create 


11 




library routine call 


5 
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LINK 




8 




linkage editor 




5 




LLOADER 




59 


69 


LMOVELL 




13 


22 


LMOVEPL 




13 


23 
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